home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / write / module / funktionkeys.module < prev    next >
Text File  |  1996-09-18  |  596b  |  49 lines
  1. MODULE FunktionKeys;
  2.  
  3. VAR
  4.   k6,k7,
  5.   k8,k9,
  6.   k10   : STRING;
  7.  
  8. KEY "f6"
  9.   WriteText(k6)
  10. END;
  11.  
  12. KEY "f7"
  13.   WriteText(k7)
  14. END;
  15.  
  16. KEY "f8"
  17.   WriteText(k8)
  18. END;
  19.  
  20. KEY "f9"
  21.   WriteText(k9)
  22. END;
  23.  
  24. KEY "f10"
  25.   WriteText(k10)
  26. END;
  27.  
  28. KEY "shift f6"
  29.   GetString(FORMAT($text1,"f6"),_currentWord,k6);
  30. END;
  31.  
  32. KEY "shift f7"
  33.   GetString(FORMAT($text1,"f7"),_currentWord,k7);
  34. END;
  35.  
  36. KEY "shift f8"
  37.   GetString(FORMAT($text1,"f8"),_currentWord,k8);
  38. END;
  39.  
  40. KEY "shift f9"
  41.   GetString(FORMAT($text1,"f8"),_currentWord,k9);
  42. END;
  43.  
  44. KEY "shift f10"
  45.   GetString(FORMAT($text1,"f10"),_currentWord,k10);
  46. END;
  47.  
  48. END FunktionKeys.
  49.